
require flex-tester/tester-syntax.f
require flex-tester/xtester.f

: 3dup dup 2over rot ;
include src/lstrings.fs
: parse-line ( "...<cr>" -- c-addr u )
	source >in  2dup 2>r  @ /string  2r> ! ;
include src/jg/list.fs
include src/halfpence/supplied.fs

T{ s" " supplied? => false }T
T{ s" foo" supplied? => false }T

T{ s" foo" supplied => }T
T{ s" bar" supplied => }T
T{ s" baz" supplied => }T

T{ s" foo" supplied? => true }T
T{ s" bar" supplied? => true }T
T{ s" baz" supplied? => true }T
T{ s" quux" supplied? => false }T
